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PREFACE 


| 


This manual describes two related facilities that extend 
WYLBUR in the direction of a programming language that 
supports structured text entry and text manipulation 
applications. ; 


The first facility is an extension to WYLBUR's command 
vocabulary that gives WYLBUR many of the capabilities 
associated with traditional programming languages, The 
extension was written by Paul Andersen. | 


The second facility is a batch preprocessor that permits the 
WYLBUR programmer to develop WYLBUR command programs in a 
language similar to PL/I. The preprocessor was developed by 
David J. Smith. | | | 


The authors wish to express their appreciation for the 
support given them by members of the Computation Center 
system staff. Eric Harslem's efforts on refining the 
specifications; Jerry Marlatt's work on the preprocessor; and 
Bill Josephs?! development of test cases and assistance in 
debugging the new commands contributed significantly to a 
successful development effort. Finally, our appreciation to 
Roger Fajman of NIH for an advance copy of the external 
design specifications for NIH Extended WYLBUR. 
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INTRODUCTION AMA ^ E 


This manual describes facilities that extend . WYLBUR's 
capabilities in the direction of a programming language that 
supports structured text entry and text manipulation 
applications. Using the extensions described here and the 
facilities described in the WYLBUR Reference Manual 
(R-1555/7), a user can construct a WYLBUR program to do such 
things as: BEP | | | 


o Administer a test or questionnaire 
o Prompt for information and construct JCI 
o Format or manipulate a WYLBUR file 


Two facilities support these capabilites, they are: 
1. Additional WYLBUR commands to permit the following: 


O The assignment of string and numeric values to variables 
o Expressions that include arithmetic, logical and rela- 
tional operators. 

Branching based on the value of an expression. | 
Programmer defined prompts requesting terminal input, 
Debugging aids for WYLBUR command programs, 


600 


Ze A batch preprocessor that extends the language and permits 
the programmer to write WYLBUR programs in a PL/I format. 
The WYLBUR program preprocessor supports program logic 
structure not directly expressible in terms of WYLBUR 
commands, such as: d 


Alphanumeric statement labels 
 Psuedo "automatic" variables 

Arrays | 
Block structured control statements 
Subroutine calls | 


o0o09 00 


This manual is divided into three sections. Section 1 
describes the language elements that support the capability 
to execute WYLBUR command programs. Section 2 details 
additional commands and related facilities. Section 3 
presents the language understood by the WYLBUR batch pre- 
processor. Functions are described in Section 1.0, and 
programming examples are given in Sections 2.2 and 3.4. | 


There are two prerequisites for understanding this material: 
1) familiarity with the material covered in the WYLBUR 
Reference Manual, 8-1555/7, and 2) a reasonable under- 
standing of the art of programming logic. 
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STRUCTURE OF WYLBUR COMMAND FACILITIES (WCF) . 


| | I 

Disk storage o£ 
Working Data Sets 

that may be collections 
of WYLEUR Commands 


LUE LJ 0 Xr E up ` vm Dl BR LLZ2 


[SUE TEN EU i ae S EE { 
{ i 
p [5*1 I 
Kn eomm | I 

LOAD USE SAVE 
| i I 
————————————— q.s 9 | 00-———-—------ | 
l Globa | | | WYLBUR I I + Working 17--—1 
| Variable | I--21 Command I 17-51 Data j | 
| Storage | I File | | Set | «--1 
I->] . (GVS) | I I I { l 
| ceee e e e ME — —— a Mec TCU as ] 
I 1130 1 i d I 
I | | d!4€--LOAD *---4 | f 
1 i 1 | I 
I p qe USE ona] I 

V 


I 

I User ! 

pose --»| at | 
| | Terminal | 
I 


WYLBUR executes commands from two sources: 1) directly from 
a user at a terminal, or 2) indirectly through the execution 
of commands stored in a WYLBUR command file. The command 
file is loaded by issuing a LOAD command in the same manner 
that a working data set is loaded by issuing a USE command, 
The LOAD command does not affect the contents of the working 
data set nor that of Global Variable Storage (GVS). The 
command file is composed of any commands that can be entered 
by a user from a terminal. This includes all of the commands 
that operate on the text of the working data set, commands 
that USE and SAVE the working data set, submit jobs, etc., 
plus the command to LOAD the command file itself, 
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The command file will accommodate approximately  600' WYLBUR 
commands of average complexity. Programs supporting 
applications requiring a larger file should be structured to 
permit overlays of the command file. One of the options of 


` the LOAD command permits the programmer to pass one argument 


between successive LOADS., 


The programmer is permitted to define variables that assist 


the WYLBUR command proqram to 'remember' conditions and to 


follow particular execution sequences. These variables are 
stored in an area called Global Variable Storadae (NEI,  SVS 
can contain up to 5850 characters, which compose a mixture 
of variable names and their conterts. GVS is empty at the 


beginning of a terminal session. Variables and their 
contents become defined at their first reference in a WYLBUR 
command, "The contents of GVS is available to successive 


LOADS within a terminal session. This is similar in concept 
to the COMMON block in FORTRAN or the EXTERNAL variable 


declaration in PL/I. 
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A constant is a fixed, unvarying quantity. There are three 
classes of constants: | | 


1) those that specify numbers (numeric constants) 
2) those that specify hexadecimal numbers (hexadecimal 
constants) 
3) those that specify character strings 
(string constants) 


Numeric constants are real decimal numbers, hexadecimal 


constants are real hexadecimal (base 16) numbers, and string 
constants are a string of alphanumeric and/or special 
characters, | 


| Definition | I 
. ! 

| Real Decimal Constant -- has one of three forms: 

| 

i 1) a basic real decinai constant (a string of decimal 

i digits) 

1 2) a basic real decimal constant followed by a decimal 

j exponent 

I 3) an integer constant 

` | 

| Magnitude:  10**-64 < [value| < 10**65 or value=0 

I : 

| Precision: 13 decimal digits 

l | 


Lodi E E eli went uL EL siesta 


A real constant may be positive, zero, or negative (if 
unsigned and nonzero, it is assumed to be positive) and must 
be within the allowable range. It may not contain embedded 
commas, A zero may be written with a preceding sign, which 
does not affect the value zero. The decimal exponent permits 
the expression of a real constant as the product of a basic 
real constant or integer constant times 10 raised to a 
desired power. 
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Examples | | ' 


VALID REAL CONSTANTS 


0 


-91 

173 

+0, | 
-999,999 
7.0E«*0 
19761, 25E+1 
7.E3 
7.083 
1.2E+0064 
7, 0E«*03 
7£-03 


-7£-0uü 


21.98753829457 7 | | 
145789193210984 (Exceeds 13 decimal digits. The result vw 
be truncated to 13 decimal digits) 


INVALID REAL CONSTANTS 


3,u71,1 (Embedded comma) 

UE (Missing a 1- or 2-digit integer 
constant following the E,) 

1.264113 (Value exceeds allowable range) 


23.5E*97 (Value exceeds allowable range) 
21.3E-90 (Value too small) | 


ill 
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Hexadecimal Constant: the character $ followed by a 
hexadecimal number formed from the 
set 0 through 9 and A through F. 


Magnitude: 0 throuqh FFFFFFFF or (2**32)-1 
Precision: 8 hexadecimal digits 


Hexadecimal constants are stored as real decimal constants. 
The HEX function can be used to display real decimal numbers 
in hexadecimal. 


K098FAU 
FF 
HEF 


I | | | 
| String Constant: a string of characters of alphabetic, I 
I | numeric, and/or special characters, I 
I | enclosed in quotation marks. j 


EE ME dp 2 a a a SE RE EE BE SEE EEA NEE RE SEE ee CGNP SEE oe e-em 


The number of characters in the string, including blanks, may 
not be greater than 255, Since quotation marks delimit the 
String, a single quotation mark within the string must he 
represented by two quotation marks, The length of a null 
string is zero. | 


'DATA' 

'X-COOBRDINATE Y-COORDINATE Z-COORDINATE' 
“3, 14! 

* DON? mt 

= (null string) 
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| Definition I 
f | | | i 
| Symbolic Name: from 1 through 9 letters (A,B,...7), | 
I | numbers (0,1,...9), or selected I 
j special characters (#,%,2,%) I 
! I 
| The first character must be a period and the second must | 
| bea letter. { 


Symbolic names are used in a program to identify variables. 


NOTE: The WCFX preprocessor generates variable names  con- 

| taining the special character "än and, therefore, 
programmers should refrain from using 12! in their own 
variable names, 


VARIABLES 


A WYLBUR variable is a data item, identified by a symbolic 
name, that occupies space in 3VS (analogous to COMMON in 
FORTRAN). The value specified by the name is always the 
current value stored in GVS, For example, in the statement 


LET .A=5.0+.B 


both .A and ,B are variables, The value of ,A depends on .B 
and is calculated when this statement is executed. 


An undefined variable (one that has not appeared on the left 
side of a LET command) has a default value of a null string. 
In the above example, if the value of .B had not been 
determined by some previously executed statement, the value 
Of .À after execution of the example statement would be 5, 
(See Implicit Type Conversion.) | 


~ 
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WYLBUR variable names must follow the rules governing 
symbolic names. Lower case characters (a-z) used to name or 
refer to a variable are equivalent to the corresponding 
upper case character. For example, .AbC refers to the 
variable „ABC, 


Examples 

VALID VARIABLE NAMES 

» RATE 

«VARS | 

e Person (Refers to variable name ,PERSON) 


INVALID VARIABLE NAMES 


. B29270484 BCD (Contains more than 9 characters) 

» SARRAY {Second character is not alphabetic) 
»SI.X (Contains an illegal special character) 
USER (Does not start with a period) 


Variables are typed as either character strings or real 


. decimal numbers according to last assignment. See section 


on IMPLICIT TYPE CONVERSION, 
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function-name f (arg1,argq2,.se.,argn) ] 


Commas are required to separate multiple arguments. 


The underlined portion of a function name indicates the 
permissible abbreviation of that name, The following 
notation is used to describe the types of arguments permitted 
With each of the functions supported by the WYLBUR Command 
Pacilities. 


re Any single character 


i Must be whole integer et <= (2**32-1) 
n Any valid real decimal number 
S Any valid string 
V Must be a variable name 
| OR i 
FUNCTION ARGUMENT(S) ` . .... DESCRIPTION |. 1. 
ABS | Ho 55 Returns absolute value of n. 
ACCOUNT | — mone /' Returns string equal to account 
| number to which session is being 
charged, 
ARG none Returns contents of system argu- 


ment: value, set by using LOAD 
command with the WITH H option. 


LINENO none Returns line number at which user 


ATTN 
pressed the BREAK/ATTENTION key. 
(This function has not been im- 
plemented in the current version 
of WYLBUR) 

BYTE c Returns integer equal to internal 


EBCDIC character representation 
in decimal. 


=n 
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S,11,i2 


none 


none | 


none 


none 


A3 nós 
wem gen AE AEE Ae EE vm, MENO AE EAD AC mm ir we mae 


Returns character string "UPLOW" 
if uplow option is in effect; 
otherwise, returns "UPPER", 


Beturns smallest integer greater 
than n. | 


For i between 0 and 255, returns 
corresponding EBCDIC character. 


Returns substring of string s 
startinq at character position i 
through the end of s. Returns 
null string if i is greater than 
the length of s. 


Returns substring of s starting 
at character position i1 and end- 
ing at character position i2. 
Returns blank string of length i2 
if i1 is greater than the length 


Returns number equal to the ter- 
minal connect time in seconds; 
accurate to 2 decimal places. 


Returns number equal to the cur- 
rent line number in the working 
data set. 


Returns number equal to WYLBUR 
editing time in seconds; accurate 
to 2 decimal places. 


Returns character string equal to 
current date in the form mm/dd/yy. 


Removes blanks from left side 
of S, 


Removes blanks from right side 
of s, 


Returns value of global DELTA. 


String s is duplicated i times. 
If the resulting string is longer 
than 255 characters, it will be 
truncated, 


R- 1555/10 


FUNCTION 


HEX 


HEXZ 
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none 


none 


il,i2 


i1,i12 


none 


E e e ET, ME 
Returns number equal to the line 
number END in the working data 
set, END is the line number 
following the last (highest num- 
bered) line in the working data 
set. - 


Returns the line at which last 
error occurred. (This function 
has not been implemented in the 
current version of WYLBUR.) 


Causes s to be evaluated as an 


expression, Any error in the 
expression will result in a 
diagnostic message, 


Returns number equal to the FIRST 
line number in working data set, 


Returns the largest integer less 
than or equal to n, 


Returns the hexadecimal character 
String representation of the 
integer i. 


Returns the hexadecimal character 
string representation of the in- 
ternal format of string s. 


Returns the hexadecimal character 
string representation of i! pad- 


ded on the left with blanks to 


equal the length of i2. 


Returns the hexadecimal character 
string representation of the 
internal format of i1 padded on 
the left with zeros to equal the 


Returns integer equal to value 
entered with previous SET LENGTH 
command, 


Returns integer equal to length 
of string s. | 


Returns integer equal to Length 
of line number n in working data 
set, Returns a -1 if the line 
does not exist. 
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EUECTION ARGUMENT (s) DESCRIPTION og . 


INDEX s1,s2 - Returns an integer number repre- 


senting the starting column of 
substring s2 in string sí. The 
search is performed left to right 
Returns an integer number 0 if s2 
is not a substring of s1, 


ISNUMBER v Returns integer number 1 if v is 
- a number; 0 if v is a string; -1 
if v is a string containing a 

numeric value. 


ISSTRING Vo Returns integer number 1 if v is 
| | a string; D if v is a number. 


JDATE none Beturns character string equal to 
| the Julian date in the form yy.ddd. 


ST | none  . Returns number equal to the LAST 
line number in working data set, 


LINE n Returns string representing the 
contents of line n in the working 
data set. Returns a null line if 
n does not exist. | 


LOWER s Converts s to all lower case 
-= Characters, 


MAP |». 51,82 s2 is a string containing ordered 
pairs of characters. String s1 
is searched for any occurrence of 
the first Character of any 
ordered pair in s2 If found, 
the character in s1 is replaced 
with the second character of that 
ordered pair. 


NUMBER S Returns string s converted to a 
| 7 number, Any error in conversion 
will result in an error message. 


PADL S,i String s is padded on the left 
| with blanks to equal length i. 


s1,i,s2 String s1 is padded on the left 

| | with characters from strinq s2 to 
equal length i. If s2 is shorter 
than the length i-si, then s2 
will be repeated left to right 
until i is satisfied. 


R-1555/10 


The Rand Computation Center: 


. Page 13 


WYLBUR Command Facilities 


$1,i1,s2 


none 


none 


s1,s2 


none 


Converts n to an 


Returns integer 1 


a emesccmc ccs DIBUERISIIUM. Us a 


String s is padded on the right 
with blanks to equal length i. 


String s1 is padded on the right 
with characters from string s2 to 
total length i. If s2 is shorter 
than the lenqth i-s1, then s2 
will be repeated left to right 
until i is satisfied. 


Returns integer equal to number 
of pages in the working data set, 


Returns string equal to SET 
PREFIX. If the prefix has not 
been set, a null string is 
returned. | 


String s is quoted, Any internal 
quotation marks are i 
doubled. 


String S1 is properly quoted 
using string s2 instead of a quo- 
tation mark. String s2 must be 
of length 1, 


integer by . 
rounding. 


Returns n rounded to a decimal 
number with i decimal digits. i 
may be positive or eaten. For 
example, 


type round (123.75,0) = 124 
t rou (123.75,1) = 123.7 
t rou (123.75,-1)- 120 


t rou (123.75,-2)= 100 


integer equal to the 
workinq 


Returns an 
number of lines in the 
data set . 


if n is posi- _ 
tive; 0 if n is zero; and -1 if n | 
is negative. 
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EUNCTION ARGUMENT (s) 
STRING n 
n, 1 
n,i1,i2 
STRINGZ n,i 
nrl1,12 
SUBSTITUTE S 
s1,s2,8s3 
SUBSTRING s,i 
S,it,i2 
TERSE none 
TERMINAL © none 


Converts n to a string. 


Converts n to a string of length 


i, padding with blanks on the 
left. 


Converts n to a string of length 
i1, with n truncated or expanded 
to i2 decimal places to the right 
of the decimal point. 


Converts n to a string of length 
i, with zeros padded on the left, 


Converts n to a string of length 
i1, with n truncated or expanded 
to 12 decimal places to the right 
of the decimal point.  Zeros are 
padded on the left as required. 


Performs substitution of all var- 
iables preceded by "€" and "X4", 


All occurrences of string s2 in 
string s1 are replaced by string 
ESP 


Returns substring of s starting 
at character iof s through end 
of s. Null string is returned if 
i is greater than the length of 
S. 


Returns substring of s starting 
at il of s for i2 characters. If 
31 is greater than the length of 
S, a string of i2 blanks is 
returned, The returned string is 
padded with blanks on the right 
if necessary. 


Returns string "TERSE" if SET 
TERSE is in effect; otherwise, 
the string "VERBOSE" is returned. 


Returns character string equal to 


line address of the terminal. 
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FUNCTION ARGUMENT (s) ————MM ÁBÉRIPTION 2071 -—-——-— 
TERMTYPE | none Returns integer representing type 


of terminal in use, e.g., 


0 Ann Arbor 
u Anderson Jacobson 
8 LSI | 
12 Memorex 1240 
16 Teletype Model 33 
20 Teletype Model 37 
24 Experimental 
28 Texas Instruments 
32 (Reserved for future use) 
-36 3S1- 300 


TIME none Returns character string equal to 
the current time of day in the 
form hh:mm:ss AM|PM. | 


TIME2U none Returns character string equal to 
the current time of day, using 28 
hour time in the form hh:mm:ss, 


TIME100 none Returns number equal to the cur- 
$a s 5 rent time of day in seconds, 
Accurate to 2 decimal places. 


TRUNCATE n Number n is converted by trunca- 
tion to an integer, 


TRUNCATE n,i Number n is truncated to i deci- 
mal places; i may be positive or 
negative, For example, 


Type truncate (123.75,0) = 123 
t tru (123.75,1) = 123.7 
t tru (123.75,-1)= 120 


t tru (123.75,-2)= 100 


UPPER WS String s is converted to all up- 
| per case, 


USER | none Returns string equal to user-id 
to which session is being 
charged, 


Page 16 


FUNCTION 


VERBOSE 


VOLUME 
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ARGUMENT (s) 
none 
none 


DESCRIPTION  ' 


GRAND AD TE SDS AS IS am GRUND miim ET EAR 


> US REP A ERR ED es ER a ER 


Returns string "TERSE" if SET 
TERSE is in effect; otherwise, 
the string "VERBOSE" is returned. 


Returns string equal to volid en- 
tered in SET VOLUME command, If 
no volume has been set, a null 
String is returned. 


The following functions have no arguments and a  hexadecimal 
Character code is returned for the named character, 


PUNCTION NAME 


BAR 
CENT 

DEGREE 
GREATER 
HYPHEN 
LEFTCURLY 
RIGHTCURLY 
LEFTSQUARE 
RISHTSQUARE 
LESS 
NOTSIGN 
PLUSMINUS 
UNDERSCORE 


| UPARROW 
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PSEUDO-FUNCTIONS | | 


The following functions are valid on the left side of an 
equal sign in a LET statement. 


PUNCTION ARGU EuT (SL E EE E 

ARS | none | Value is assigned to the system 
arqument variable. (See LOAD 
command, WITH option.) | 


COLUMNS | vi. : The character string defined by v 
E is replaced starting at character 
position i with the string 
defined on the right hand side of 
the | equal sign in the LET 
statement. Replacement termi- 
nates when enough characters have 
been replaced to satisfy the 
original length of string v. If 
the length of source string v is 
less than itt, it will be treated 
as if it were padded on the right 
with the required number of 
blanks, 


UMNS v,i1l,i2 The character string defined by v 
is replaced starting at character 
position i1 and ending at 
character position 12 with the 
string defined on _the right- hand 


In 
IO 
im 


statement Blanks are | substituted 

if the length of the source 

string is less than (i2-i1*1). 

Resulting string can be longer 
than the original string, 


let v = 'abcdefgq' 

let col(.v,2,U) = '123' 
type «Y 

A123EF3 

let col(.v,2,10) = '123% 
type v 

A 1239099 yy 

let .v - ‘abcdefg! 

let col (.v,2,3) = '123' 
type ,.v 

A12DEFG 
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FUNCTION ARGUMENT (s) 

LINE n 

SUBSTRING v,i 
v,11,12 


DESCRIPTION | 


RO TERRY QUUD ITE BOTS LEI STS EI SLED ORD CES vilicus exc ETD VS CD GEO ACEP 2D «GE GA EE Ane geg, 


The line specified by line number 
n is replaced by the string de- 
fined on the right-hand side of 
of the equal sign in the LET 
statement. If the line specified 
by n does not exist, it is 
created, 


(Same as COLUMNS v,i) 


The character string defined by v 
is replaced starting at character 
position i1 for 12 characters 
with the string defined on the 
right-hand side of the equal sign 
in the LET statement.  Blanks are 
substituted if the length of the 
source string is less than i2. 
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WYLBUR expressions are composed of a combination of language 
elements and operators. The language elements can be 
function calls, variables and constants. Operators can be 
arithmetic, logical, and relational. Nesting of expres- 
Sions is limited by statement complexity and available stack 
Space, A diagnostic is issued if stack resources are 
exceeded, | | 


 ORDER.OF EXPRESSION EVALUATION 


Expression evaluation is performed according to the hierarchy 
of operations shown in the following list, Within a 
hierarchial level, computation is performed from left to 


Hierarchy Operation 
Ist | Evaluation of functions 
2nd | ** 
3rd *,/7, //,MOD 
uth Zem: - 
5th 
5th GT,NGT,GE,NGE,EQ,NEO,LT,NLT,LE,NLE 
7th NOT 
8th AND 


9th = OR 


Page 20 The Rand Computation Center: R- 1550/10 
WYLBUR Command Facilities 


Symbol Meaning 

Functions (See Section 1.0) 

xe Exponentiation 

k Multiplication 

/ Division 

// l | Truncation after division 
MOD Remainder after division 
* Addition 

- Subtraction 

E String concatenation 

GT E Greater than 

NGT Not greater than | 
GE Greater than or equal to 
NGE Not greater than or equal to 
EO Equal to 

NEO Not equal to 

LT Less than . 

NLT | Not less than 

LE Less than or equal to 

NLE Not less than or equal to 
NOT | (NOT .A) If .A is true then NOT .A has 


the value false; if .A is false then 
NOT .A has the value true, | 


AND | . (4A AND .B) If both .À and .B are true, 
then .A AND .B has the value true; if 
either .A or .8 (cr both) is false, then 
.À AND .8 has the value false, 


OR (+A OR .B) If either .A or B or both 
are true, then +A OR ,B has the value 
true; if both ,A and ,B are false, then 
then ,A OR .B has the value false. 


The only valid sequences of two logical operators are AND 
NOT and OR NOT; the sequence NOT NOT is invalid. 


If a variable contains a number whose value is non-zero, then 
that variable is considered true; if the value of the number 
is zero, then the variable is considered false. Ifa 
variable contains a string, it is considered false when the 
string is null, and true when the string is non-null. 
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IMPLICIT TYPE CONVERSION Ld 


Arithmetic. When evaluating part of an expression involving 
an arithmetic operator and a string, the string is converted 
to a number; a diagnostic will result if conversion to a 
valid number is not possible. The following table 
illustrates the possible conversions. 


Character Number 
“01 ---» 0 
WW ---> 0 
"0! €--- 0 
Examples 
stringa * numberb | stringa converted to number, if 
| possible, | 
stringa + stringb Both strings converted to numbers, 
if possible. | 
Concatenation. Numbers are converted to 20 character 


strings, right justified with leading blanks if required. 
The sign, if negative, is placed at the character position 
just prior to the leftmost significant digit. 


Examples 

stringa{[{stringb No conversion 

stringa] {numberb numberb converted to 20-character 
string. | 

numberaj|numberb Both numbera and numberb converted 


to 20-character strings. 


Relational. The shorter string is padded with trailing 
blanks to the length of the longer string. When evaluating 
the relationship between a string and a number, the string is 
converted to a number; a diagnostic will result if conversion 
to a valid number is not possible, 


Examples 
numbera<REL>numberb No conversion 
stringa<REL>stringb Shorter string will be padded with 
trailing blanks so that it equals 
the length of the longer string. 
stringa<REL>numberb stringa is converted to number, if 


possible. 


where «REL» is any of the relational operators, (i.e., ST, 
NGT,» es» NLE); ` 
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INDIRECT SUBSTITUTION : 


Use of "X, When a "X" precedes a language element (i.e., a 


constant, a variable name, or a parenthesized expression) 
that element will be replaced with its contents. 


Example 1 


CHANGE ‘text’ to 'newtext' in %.C 
will change the string ‘text! to 'newtext'! in the line(s) 
specified by the contents of the variable ,.C. 


iD ? let .x1 = *.x2' 
COMMAND ? let .x2 = 
COMMAND ? type .x1 
e X2 
COMMAND ? type .x2 


COMMAND ? type %.x1 


? let .a2 = 'string' 
? let .b = 12? 
? let .c = X(*'.a'|l.b) 
COMMAND ? type .c | 
STRING 


will assign to variable .C the value of variable .,A2 
(e.g., the value 'STRING'!). 
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Use of "4%", When a "%%" precedes a language element  (e.q., 
a constant, a variable name, or a parenthesized expression) 
that element will be replaced by its contents, and the 
resulting value will be enclosed in quotation marks, 


? set uplow | E 

? let „a "text! - - 
COMMAND ? let .b 'newtext' 

? 

? 


HHH 


let .c 7/10! 
COMMAND change X€*.a to **.b in %.c 
will result in the following command: 


CHANGE 'text' TO 'newtext' IN 1/10 


Example 2 

COMMAND ? let .a = “test! 

COMMAND ? let ,b = ‘exam? 

COMMAND ? request str .a prompt %%.b 
EXAM i 


vill reguest a user-supplied value to be assigned to vari- 
able ,A by prompting with the contents of the variable .B. - 


Example 3 


COMM 


À let .cur = 13403 
COMMA 


ND ? 
ND ? 1 *€(str(.cur,8)) 


will result in the following command: 


L *000134503'! 
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Indirect substitution as described above operates only at the 
first level of reference. In Example 1 above, if the 
contents of .C had been %.D then the substitution would have 
‘resulted in the following: 


CHANGE 'text' TO 'newtext' IN *.D 


Since *.D would require a second level substitution, the 
Command would be illegal. TEE ie i 


Indirect substitution can not be used within a  parenthesized 
expression. This prevents the use of indirect substitution 
as an argument for a function call or for nesting indirect 
substitutions within an expression. 


Thirdly, indirect substitution may not be used as a  pseudo- 
variable in an assignment statement. 


R-1555/10 The Rand Computation Center: . Page 25 
WYLBUR Command Facilities 


COMMAND STATEMENT: = 


his section defines the conventions used in presenting 


WYLBUR commands, 


O 


Words printed in upper case are keywords and should be 
entered as shown. 


o Permissible abbreviations of keywords are indicated by 
underlining. SE 


Ten 


o Lower case words are replaced by user-supplied values. 


o Words and phrases bounded by "II and '}' are mandatory 
within a command, | 


o Words and phrases bounded by "IT and "TI are optional 
within a command depending upon the function desired. 

o !'|* within the definition of a command means  'OR', For 
example, the text "constant|varname]expression" should be 
read, "constant or variable nare or expression", 


o '®' within the definition of a command means 'AND OR}, 
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i E I 
I LOAD {dsname]*} [ON volid] [LIST] [sO [lineno]] 4 
i | | 
| [WITH constant |[varname| (expression) ] | 
I | i 
! ee | 


The LOAD command copies the contents of the specified disk 
data set into the  WYLBUR command file. A LOAD * command 
transfers the contents of the working data set into the 
command file, The working data set is cleared by the action 
of the LOAD * command, 


dsname is the name of the data set containing the WYLBUR 
| command file to be loaded for execution, 


* is the working data set that is SES by the 
LOAD * command, 


ON volid is a keyword followed by the name of the disk 
volume where the data set is stored, Not required 
if the dsname is cataloged. May not be specified 
when the * option is used. 


LIST is a keyword option causing each command executed 
from the command file to be listed at the termi- 
nal prior to execution, | 


30 flineno] is a keyword option allowing specification of the 
line number of the WYLBUR command to be executed 
after loading is complete. If this option is 
omitted, control will be returned to the terminal 
after loading. If the optional line number is 
omitted, execution will start at the first 
(lowest numbered) statement in the command file, 


WITH arg is a keyword followed by an argument that may be 
| any one of the indicated lanquage elements, The 
value of the element is stored as a string in GVS 
and is accessible through use of the ARG 

function. (See FUNCTIONS in Section 1.0.) 


CLEAR is a keyword option that is required if the 
command file has been loaded previously during 
the terminal session, If this option is omitted, 
and the command file is not empty, a prompt will 
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be issued at the terminal requesting permission 
to clear the command file so that loading can 
take place. 


COMMAND ? load command.file on user03 clear 


COMMAND ? load commands clear go 
THIS COMMAND FILE HAS STARTED 


2 
e 


? 


Ana «yo IUUD SRÓN: nt «iuo “ain «e» 


COMMAND ? load @member with .parm clear 


COMMAND ? load set.commands clear go list 


1. -» SET TERSE | | 

Ze -> SET UPLOW | 

3e -> SET VOL USERO]1 

D. -> SET NOBREAK 
Example 5 
COMMAND ? collect 

1. ? set tabs 5 10 20 30 40 50 

Ze ? set terse 

3. ? set vol user02 

a, ? set uplow 

D. 2 *** (= BREAK/ATTENTION key pressed) 
COMMAND ? load * clear go 
LOG, TABS 1 1 1. 1 1 1 
PHY, TABS 1 4 | 1 1 1 1 
Example 6 
COMMAND use command,file clear 


? 
COMMAND ? delete 100/1last 
COMMAND ? load * clear go 

THIS COMMAND FILE HAS BEGUN 


* 
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USE * Command | | 


1 General Form | I 


The USE * command transfers the contents of the command file 
to the working data set. The command file is cleared by the 
action of the USE * command, 


* represents the current contents of the command 
file which is cleared by this command, 
CLEAR is a keyword option that is required if the WYLBUR 


working data set contains any lines. If this 
option is omitted, and the working data set is not 
empty, a prompt will be issued at the terminal re- 
questing permission to clear the working data set 
SO that the contents of the command file can be 
transferred to it. 


Example. 1 


COMMAND ? load command,file clear go 
PUNC - UNKNOWN PUNCTION 

COMMAND ? use * clear 

COMMAND ? mod ‘funct in all 


Example 2 


COMMAND ? collect 


1. ? set vol user10 

2.  ? set nobreak 

3. ? set uplow 

D, ? *** (7 BREAK/ATTENTION key pressed) 
COMMAND ? load * clear go | 


USER10 - ILLEGAL VOLUME 

COMMAND ? use * 

COMMAND ? change *'user10' to 'user01' nolist 
COMMAND ? load * go 


R- 1555/10 The Rand Computation Center: Page 29 
WYLBUR Command Facilities 

ASSIGNMENT STATEÉKENTS 

LET Command 

EK XT eee! 

| LET {pseudo-function-list@variable-list} = expression | 


ae a wi mme "WAP BE NEE MD = SEE a cAMP UND se eo “RE IAS RE 00 ee RED URB wë BE IE “EEA SEE EE EE OD RE LEO WU Ue URP - AP CR “ME RE. MED SEA EE MED IE ME ap vam. BS RE UD UD wën af “EE IEP, UD UR “agu: 


The LET command assigns the value of the expression to 


named 
allowed 


variable or pseudo-function, 
but variable or 


pseudo-function lists must 


enclosed in parentheses, 


COMMAND ? let .a - 1 


COMMAND 


COMMAND 


COMMAND 


| COMMAND 


COMMAND 


12» *xx**9890 


COMMAND 

COMMAND 

COMMAND 
1. 


COMMAND 


COMMAND 


COMMAND 


COMMAND 
COEMAND 
*,37 
COMMAND 
COMMAND 
#2093 


LÀ 


E 


? 
£ 
9 


ayy véi za 


a 


sa vay og) 


sw sai 


let (.a,.b) = 4,57 
let .c = 'strina' 


let .str=' 1234567890! 
let substr(.str,3,5) = *'***x*x!' 
type .str 


clear text 

let line(1) = "this is line one! 
list i 

THIS IS LINE ONE 


let .value = (.num1**3/2,.58)*((.num24*0) //, num3) 
let ¿str = *'this'|I|' is a "| |*string' 


let a = fi 
let „a= ,.all|strz(cputime) 
type .a 


let substr (.a,2,4)=account 
type .a 


the 
Multiple assignments are 


he 
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HOW GLOBALS Command 


| seneral Form o 1 


SEE « xm» RE BREA VD GD Rd RE ar SEE du QUO 098 066 UMS 90 RE cb ME co RE SEE SEE IEA RO SEE “RÉ "AMD ee SR SEE att “RA RÉP LEE DI SEE vn AUD D LEE 005 “RE? UND BE ueque CUP ÉD RE ME AUD “GE «QUA CE ODER UU ER “EI QE wm 


| SHOW GLOBALS [varname-list] I 


The SHOW GLOBALS command converts the values of the named 
variables to printable form and displays both names and 
values at the terminal, If a variable name list is not 
supplied, all defined variables will be displayed. 


Example. 1 


COMMAND ? show globalis 

NO GLOBAL VARIABLES DEFINED 
COMMAND ? let [(.a,.b) = “value! 
COMMAND ? show globals 

oA VALUE 

VALUE 


H N 


| ? let .c = 24 
COMMAND ? show globals .c 
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| General Form | I 


I | 
| CLEAR GLOBALS [varname-list ] { 


The CLEAR GLOBALS command removes the definitions and values 
of all named variables from GVS, If the variable name-list 
is omitted, all user-defined variables will be removed from 
GVS, i 


Example. 1 

COMMAND ? show qlobals 

oA = VALUE | 

e H - VALUE 

COMMAND ? clear globals 
COMMAND ? show globals 

NO GLOBAL VARIABLES DEFINED 
COMMAND ? show globals ,a 
A = 


mt rage: dh BGO. ER UD SUR (UA. 


COMMAND ? show qlobals 

oA = STRINGI 

e D = STRING? 
COMMAND ? clear globals .a 
COMMAND ? show globals 

.B = STRING2 
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BRANCHING STATEMENT | | 


—— v— DOS CRIED e SORO fer. dn wm, um 


x— d <A AAA IND COND ARP UD FUP CARD up emm ORÉD ën mm 4OUD om cA LEE) A AD CANNA SHIN AX vm og SES AED AUD abe AD emp gin ar BE CAD WD SED AUD AP AA GU AND UD UO CUP OR wm, (AND ër ap AD GR uU op UND wë em AP HU e 


HE a op IR REESE E AK JE Pr 096 2005 “EE SE as “ mp vn SEE “EE SEE ME a ISE s Rd ET NRE “EO or 0 SIE “MED LEE “NEE SEE RE TEG DED SI SEE ër gn Riiie 
sët . 


The GO command causes execution to proceed from a given line 
number, If the line number is omitted, execution starts with 
the first command in the command file or with the next 
command that would have been executed if execution had 
previously been interrupted. 


LIST is a keyword option causing each command about to 
be executed from the command file to be listed at 
the terminal prior to execution. This option 
overrides a "NOLIST" entered with a previous GO 
command. ! | 


NOLIST | is a keyword option that overrides a LIST entered 
with the LOAD command or previous GO command, 
NOLIST commands are not listed. | 


At LOAD time the default mode is  NOLIST, Thereafter, the 


option last specified is retained if no option is SE 
on the current command. 


Example 1 
COMMAND ? load command,file clear 


COMMAND ? go 
THIS COMMAND FILE HAS BEGUN 


COMMAND ? collect 
1. ? request str .a 
2» ? if .a eng? 
3. ? else goto 5 
ü, ? let ed = ' ‘ 
5. ? type .a 


+ 


R-1555/10 
Example. 3 
COMMAND ? 
COMMAND ? 

1. 

2a 

3. 
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load set,commands clear 
qo list 

-> SET UPLOW 

-» SET NOBREAK 

-> SET VOL USEROS5 

-> SET TERSE 
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After the TF command is executed, the value of the internal 
"IF switch" is set to false if the "expression" was equal to 
a numeric zero or a null string; otherwise, the value of the 
Switch is set to true, 7 


THEN Command 


RE wap a Gm CARD SEO ER RE AU UD MD AND EE RD Id “SÉ - SUED ME UP TE EE “BE EEA ub RF ao  e ME ee AED ID RÉ ee SÉ “RE. DE ce BEI RE Gb “RE EE “BE EE UD SEE AND UD TEG SIE DEEEE SEE RE a RED, m 


The THEN command causes the value of the "IF switch" to be 
tested; if it is true, the command is executed, Otherwise, 
this command is skipped, and the next command is executed. 


| 
1 .ELSE command I 
I 


The ELSE command causes the value of the "IF switch" to be. 
tested, and if false the ELSE command is executed, 
Otherwise, this Command is skipped, and the next Command is 
executed, 
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Example 1 | | E 
1. type “example? 
Ze reguest str .a | 
3, if wä eq '1'! or .a eq '0! 
D. a 


5.35 if substr(.var1||.var2,10,5) eq '*****' or vari eq '' 
54. then goto 112 
B if .value1 nqt cputime 

56, * l 


11. then let .b = 1 

12. then goto 50 

134 e 

Example H 

77. if varl qt 10 

78, then if .var2 ngt 5 
79, then let .var3 = 15 
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Example 5 

15 ? if .c gt 0 

16. ? else let .c = 0 

17. ? else gotc 25 

18. ? , | 

Example 6 

23. if length (string) nit ,maxlen 
24, |» else let .string = .stringj1.char 


25, else goto 53 


» 
há 


» 
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INPUT STATEMENT 


-— ee een BUD CENT ES ET 1 


nD d EDR det ESCHER ES HAND ABTA WER obo SREP Math BARR eege, 


| General 


Form 


37 


REQUEST [STRING| NUMBER] VALUE} varname 


[ PROMPT [fconstant|variable| (expression) } ] 
[ ATTENTION lineno] Į DEBLANK {LEFT] RIGHT} ] 


EE 4 NEE SES BB 4mm AED 4 AA SEE dn GS SUD Aue GA EE AA DHE << EE MED BEO ‘2 ARM am ee GE GARA AUR EEA EE RE “SEE HE BE AER 008 BE EEA a Ed a SEOD ue “An ee c 


| The REQUEST command prompts the user with a varname to 


he must 
following 
STRING 
NUMBER 


VALUE 


varname 


PROMPT 


COMMAND ? 


COMMAND ? 
THIS IS A 


which 


assign a value, The user must specify one of the 
elements in the command: STRING, NUMBER, or VALUE, 


treats the response entered as a character 


String which takes the value of the variable, 


treats the response entered as a numeric 


constant, 


treats the response entered as an expression, 


which is evaluated and stored as a value, 


is the name of the variable in GVS which will be 
assigned the value of the response that has been 


entered. 


allows specification of a string to prompt for 
the response to be entered. If the PROMPT para- 
meter is omitted, the name of the variable (var- 


name) will be used. 


specifies the line number of a command that will 


receive control if the BREAK/ATTENTION key 


is 


struck without a preceding keystroke, i.e., 


while responding to a REQUEST prompt, 


removes blanks from the right or left margins of 


the response, 


request string .a 
is a string 

type .a 

STRING 
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COMMAND ? collect 
1. ? request string .a prompt ‘value? ' deblank left 
` Ze ? request string ,b CEROMDE '2nd value? * deblank left 
3. ? type ,.all.b 
D, p ow ! (= BREAK/ATTENTION key presses) 
COMMAND ? load * go clear 
VALUE? 12345 
AND VALUE? abcde 
12340 5ABCDE | 
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QUTPUT STATEMENTS ` | | 
TYPE Command 


i eneral Form | | I 


I TYPE expression df | I 


The TYPE command evaluates the "expression", converts it to 
printable form, and displays it at the terminal. 


Example. 1 


COMMAND ? type 'this is an example! 
THIS IS AN EXAMPLE 
Example 2 


COMMAND ? let .a = date 

COMMAND ? type .a 

03/10/75 7 

COMMAND ? type ‘the current date is "Mea 
THE CURRENT DATE IS 03/10/75 


Example. 3 


COMMAND ? type case 


UPPER 
COMMAND ? type 1/3 

2 3333333333333 
Example 5^ 


COMMAND ? let .a 2 

COMMAND ? let .b 1.41421356 | 
COMMAND ? type ‘the square root of '|j|istrz(.a)li!|* is ‘i{strz(.b) 
THE SQUARE ROOT OF 2 IS 1,414021356 

COMMAND ? type "the square of 'j||strzí(.b)|l!' is 'lIlistrz(í. b*, b) 
THE SQUARE OF 1.41421356 IS 1.99999999 328 


H H 
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The TTYPE command evaluates the "expression", and transmits 
it to the terminal without any intervening code translation. 
The evaluated expression is assumed to result in a string of 
Characters in line code, (See TTYPE TRANSPARENCY TABLE.) 


9, 
10, 


11. 
COMHAND 


Ke 


rs 


2 


? 
? 


collect 

ttype char (#31) 

ttype char (#f0) | {char (#00) ]{ char (#82) 

ttype dup (char (#4),20) |{dup(char (#fb) , 3) | | char (#b1) || 
char (#51) 

ttype eee iú 19) {char (#55) | 1dup (char (#4) , 3) 1| 
char (#55) |] char (#b1) {| char (#51) 

ttype EE EES ea 5311 
char (#55) | I char (#b1) {| char (#51) 

ttype dup(char (#4),17) JI char (#3f) | dup (char (#4), uil 
char (#3f) | char (#b1) | | char (#51) 

ttype dup(char (#4), 17) Ii char (#3£) (dup (char (#4), 7) 11 
char (43£) 1 ] char (#b1) | fd char (#51) 

ttype dup(char (#4),18) J| char (#55) { dup (char (44) ,5) 11 

| char (#55) 4 | char (#b1) I| char (#51) 

ttype dup(char (#4),19) [char (#55) | [dup (char (#4), 3) 11 
char (#55) | {char (#b1) |! char (#51) 

ttype dup(char (#4),20) Ii dup (char (#b5) , 3) | 1 char (#b1) 1| 
char (#51) : | 

k&kk (= BREAK/ATTENTION key pressed) 


load * go 
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AO TL UTES ee: TN MUCH END sae URP GEKA COND. GNE ERE NNUED (RUD 


NEE EE "ANN <> Hb SEE EE RE EE ue ee Ane RA cQ es es ee ED HUND WARD RD SEA SEE SAND BE IEA RÉ RP RED DE Xu “RE SR CUN SIE NN EE RE “RE AMD MAD SIE c SE RE ARD URP MD NEE RR ee SEE cub vago  - AP UBND E wg 


The COMMAND command is a debugging aid that can be included 
in the command file program to break execution and optionally 
display information, Following execution of a COMMAND 
command, WYLBUR prompts with "COMMAND ?" signifying that the 
next command entry is expected from the terminal, Execution 
from the command file will be resumed automatically following 
the entry of one command from the terminal. 


COMMAND ? collect 

1. ? let .a = 1 

pm ? let ,b = 2 

3. ? let .c = 3 

a, ? command | 

5, ? type strz(.a)jistrz(.b)|jstrz(.c) 

6, ? kkk (7 BREAK/ATTENTION key pressed) 
COMMAND ? load * qo clear | 
COMMAND ? show global 
oA = 1 
e B = 2 
»C = 3 
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PAUSE Command | | 


eem CED TEES ED TS ED URP TERED RRS eren ARBRE SOD Een 


| General Form 4 


| : | | | 
I PAUSE [expression] 7 | i 


The PAUSE command is a debugging aid which can be included in 
the command file program to break execution and optionally 
display information. Following execution of a PAUSE command, 
WYLBUR types the message "PAUSE HAS BEEN EXECUTED" followed 
by the "COMMAND ?" prompt, signifying that the next command 
entry is expected from the terminal. Execution from the 
command file can be resumed following a PAUSE by the command 
GO in the same manner that execution is resumed after the 
BREAK/ATTENTION key is struck. 


expression indicates that the specified expression be eval- 
| uated, converted to printable form, and display- 
ed as the message preceding the "COMMAND 2?" 


prompt, 
Example. 1 
COMMAND ? collect 
lá ? let a= 1 
2» ? let .b -2 
36 ? let ,c = 3 
U., ? pause 
D, ? type sStct,aililstrzt,billstczt,cH 
6. ? *** {BREAK/ATTENTION key pressed) 


COMMAND ? load * go clear 
PAUSE HAS BEEN EXECUTED 
COMMAND ? show global 


. = 4 
B = 2 
C = 3 
COMMAND ? go 

123 


COMMAND ? 


x Fón 
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mande <b wee CSS CEN SUERTE deer DEED emeng 


COMMAND ? collect 


1. ? type 'first' 

2. ? pause ‘enter go to resume’ 

3, ? type "last! 

4, ? *** (BREAK/ATTENTION key pressed) 


COMMAND ? load * go clear . 


FIRST 


ENTER GO TO RESUME 


COMMAND ? go 
LAST 
COMMAND ? 


4 3 
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STEP Command | | 


degen max Wipes SE ES GOLD BSE Cum UNA EE SQUARE ipaum 


|] General Form I 


ame ae NND ae EEA IE SEE —— 00 SEE BH DI ME “BE EE «REP EE SEE UNDC M up AD EN GONG “SEE HD “SEE. AD ee ee ee SE RE AVR 000 MER SEE. cem DD “EE SD SEE IE SAND “gun gap A oe 


j STEP numeric-expression [FROM lineno] [LIST|NOLIST ] I 


The STEP command is a debugging aid that permits execution of 
a specified portion of the command file program. It is 
normally entered directly from the terminal in response to a 
PAUSE command in the command file program, 


num-expr specifies the number of commands to be executed 


before the user is asked to respond to a PAUSE 
command. .- 
FROM Causes execution to resume from the specified 


line number, 
LIST causes commands to be listed before execution, 
NOLIST causes LIST option to be terminated. | 
At LOAD time the NOLIST option is in effect, Thereafter, the 


option last specified is retained if no option is specified 
on the current command. 


Example 
COMMAND ? collect 

1. ? let ,sum=0 

Ze ? let .i-1 

3, ? go 5 

D, ? let .1 Seit? 

D, ? if .i at 10 

6. ? then go 10 

7. ? let .sar = ,i*,i 

8, ? let sum = .sum+.sar 

9, ? go 4 

10, ? type sum , 

14s ? kkk 5 (7 BREAK/ATTENTION key pressed) 
COMMAND ? load * clear | 
COMMAND ? step 25 


STEP COMPLETE, PAUSE EXECUTED. 
COMMAND ? show global 


ai = ü 
» SOR - 16 
. SUM = 30 


COMMAND ? step 50 
385 
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i | 
| SET {TRACE|NOTRACH} [ varname-list| VARIABLES ] | 
b | 


The SET TRACE command is a debugging tool normally entered 
directly from the terminal. It is used to trace particular 
variables as they change during execution of a command file 
program, Í | 


TRACE . turns on the specified trace options. When the 


"yvarname-list" is present, and not overridden by 
the VARIABLES option only the variables 
specified on the list are displayed when 


Changed, 
NOTRACE turns off specified trace options, 
VARIABLES causes all defined variables to be displayed 


when changed.. 


Example 
COMMAND ? collect 
is ? let eSum = 0 
La ? let i = 1 
3i ? qo 5 
D, ? let .1 = sit? 
6, ? then go 10 
Ta ? let s SOT = ii 
8, ? let .sum = ,.sumt,sur 
9, ? go H 
10. ? type sum 
11. ? **x* (=BREAK/ATTENTION key pressed) 
COMMAND ? set trace ,sum | 
COMMAND ? load * clear go 
s 2 SUM = = E. 
8. : ¿SUM = 1 
B, : SUM = 5 
: SUM = 


55 
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2.1. WCE ERROR MESSAGES : 


o CONVERSION ERROR 


An attempt to convert an internal numeric value to a 
Character string has failed. 


o err-txt - 2ND ARGUMENT:EVEN NUMBER OF CHARACTERS REQUIRED 
The second argument to the function MAP must be a character 
string containing ordered pairs of characters to be used in 
the transformation. 

o err-txt - 3RD ARGUMENT LESS THAN 2ND 
The. third argument to the function COLUMNS is less than the 
second, resulting in an attempt to obtain a string of 
negative length. 

o err-txt - ARGUMENT MUST BE A CHARACTER STRING 
The first argument of the pseudo-functions SUBSTRING and 
COLUMNS must be a variable that contains a string value; 
otherwise, conversion will not be attempted, 


Oo err-txt - ARGUMENT MUST BE A LINE NUMBER 


The argument of the LINE pseudo-function must be a numeric 
value that can be converted to a valid WYLBUR line number, 


o err-txt - ARGUMENT MUST BE POSITIVE INTEGER 


An argument for the named function (or pseudo-function) 
"err-txt" must be a numeric integer value greater than zero. 


o err-txt - ARGUMENT MUST BE POSITIVE INTEGER LESS THAN OR 
EOUAL TO 255 


Argument to the function CHAR must be an integer between 
zero and 255 inclusive. 


o err-txt - CHARACTER MUST BE OF LENGTH ONE 


Character to be used for quoting the given serang can only 
be of length one. 


o err-txt - FIELD TOO SMALL FOR RESULT 
The character string resulting from the conversion of an 


integer value to a hex string is too large to fit in the 
supplied return area, 
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err-tx* - Wees NOT IMPLEMENTED 


"err-txt" is a valid function name but is not currently 
supported, | 


err-txt - ILLEGAL ARGUMENT SPECIFICATION 


The number of arguments supplied for the function "err-txt" 
is illegal. 


err-txt - ILLEGAL ARGUMENT TYPE 

An argument supplied for the function "err-txt" is of an 
improper type, i.e.,, a character string was found instead 
of a numeric string. 


err-txt - ILLEGAL LINE NO, 


Argument to the function LINE or LENGTH must be a numeric 
value that can be converted to a valid WYLBUR line number. 


err-txt - ILLEGAL VARIABLE NAME 
"err-txt" is an illegal variable name. 
 err-txt - THIRD ARGUMENT ILLEGAL 


The third argument of the pseudo-function COLUMNS is less 
than or equal to the first arqument, 


err-txt - UNKNOWN FUNCTION 
"err-txt" is not a function. 
err-txt - UNKNOWN PSEUDO-FUNCTION 
"err-txt" is not a pseudo-function,. 
ERROR IN NUMERIC CONVERSION 


An attempt to convert a string of characters to an internal 
numeric representation has failed, 


NEGATIVE OR NON-INTEGER POWERS NOT ALLOWED 


Exponentiation is legal only for positive integer powers, 
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o 


NO MORE ROOM FOR VARIABLES, COMMAND TERMINATED 


In an attempt to save a variable in GVS, you have exceeded 
the maximum amount of space allowed, 


o NOT CURRENTLY EXECUTING MACRO 


An attempt was made to set up a step debugging environment 
outside an active use of the WYLBUR Command Facility. 


o NUMERIC VALUE REQUIRED 
Àn attempt to enter a non-numeric value in response to a 
REQUEST command with the | NUMBER option has been 
encountered, E | 


o POSITIVE INTEGER REQUIRED 


The STEP command requires that the requested number of 
steps be an integer greater than zero, 


o "STRING", "VALUE", AND "NUMBER" CONFLICT 


The command REQUEST requires the specification of ona and 
only one parameter from the group: STRINS, NUMBER or VALUE 


O WYLBUR OUT OF PAGES, COMMAND TERMINATED 
In an attempt to save a variable in the variable work 


Space, WYLBUR has exceeded the capacity of its paging 
fi les. 
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CLEAR TEXT 
CLEAR GLOBAL 


TYPE 'IEHMCVE COPY PROMPTER? 


REQUEST STRING .BIN PROMPT 'BIN-' 

1 //%(USER) RXX JOB <%ACC,5, * (. BIN) P,COPY,CLASS-G 
2 // EXEC PGM-IEHMOVE 

3 //SYSPRINT DD SYSOUT-A 

4 //SYSUT1 DD UNIT-TEMP,VOL-SER-TEMP10,DISP- 
REQUEST STRING .DSN PROMPT 'DSNAME TO COPY - 
IF SUBSTR(.DSN,1,1) EO '$' 

THEN LET .DSN-SUBSTR(.DSN,2) ! | 

ELSE LET .PREFIX-SUBSTR(USER,1,1) J's I {USERI ( * . Art {ACC 
ELSE LET .DSN-.PREFIX]|I'.'||.DSN —— 

REQUEST STRING .FROMDEV PROMPT ‘ENTER FROM DEVICE ' 
REQUEST STRING .FROMVOL PROMPT 'ENTER FROM VOLUME ! 

IF SUBSTR (.FROMDEV,1,4) EQ 'TAPE' 

FLSE GO TO 23 

REQUEST STRING .FROMFIL PROMPT 'ENTER FROM FILE 5$ ' 

5 //FROM DD UNIT-*,PROMDEV,IABEL-(1,SL) ,DISP=(OLD,KEEP) , 
6 // VOL=<PRIVATE, RETAIN, SER=00% (. FROMVOL) > 

LET ,.FROMVOL-'C'||. FRONVOL| Ire "11, PEONPIL II '>! 

30 TO 24 

5 //PROM DD UNIT=%- FROMDEV, VOL=SER=&. FROMVOL, DISP-OLD 
REQUEST STRING .TODEY PROMPT 'ENTFR TO DEVICE ! 
REQUEST STRING .TOVOL PROMPT "ENTER TO VOLUME ' 

IF SUBSTR(.TODEV,1,4) EQ 'TAPE' 

ELSE GO TO 33 

REQUEST STRING .TOFIL PROMPT "ENTER TO FILE # ' 

7 //1TO DD UNIT-*,TODEV,LABEL- (1,SI) ,DISP- (OLD,KEEP), 


SHR 
' 


8 // | VOL=< PRIVATE, RETA IN, SER=00% (, TOVOL) > 
LET ,TOVOL-'«!|!,TOVOL|I'. ! qp. TOFILI LOB 
SO TO 34 


7 //TO DD UNIT=%. TODEV, VOL=SER=%, TOVOL,DISP-OLD 

9 //SYSIN DD * 

10 COPY DSNAME=%.DSN 

CHANGE 72 to 'X' IN 10 NOLIST 

11 TO=$, TODEV=%, TOVOL, FROM=%, FROMDEV= Y. FRONYOL, TODD=TO 
ALIGN 11 INDENT 15  — 

CHANGE *<* TO '(* NOLIST 

CHANGE '»' TO ')' NOLIST 

LIST 
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Explanation of Commands m 


Clear the working file. 

Clear any variables. 

Put herald message on terminal. 

Ask user for his output bin#. 

Create JOR card as line 1 in the working data set using 
logon user-id and account#. NOTE: Use <> instead of 
() until end since % replacement doesn't take effect 
inside parens, 

Create EXEC statement as line 2. 

Create SYSPRINT DD card as line 3, 

SYSUT1 DD card as line 4, 

Ask user for data set name to copy. 

See if prefixed by $==>full dsname, 

If $, then must strip $ off dsname, 

Otherwise, build prefix from logon user-id/accountt, 
and build fully qualified dsname. 


Ask user for source device name, 


and source volume, 

See if source is tape, 

Skip if not tape. 

Ask user for tape filet, 

Create a tape FROM DD statement, 
Continuation of FROM DD statement, 

Build volume parm for COPY utility statement to be 
created later. 

Skip non-tape DD statement. 

Create disk FROM DD statement. 

Ask user for destination device nare, 

and destination volume, 

See if destination is tape. 

Skip if not tape. 

Ask user for tape filet. 

Create tape TO DD statement, 

Continuation of TO DD statement, 

Build volume.parm for COPY tee Statement Co De 
created later, 

Skip non-tape DD statement. 

Create disk TO DD statement. 

Create SYSIN statement as line 9. 

Create COPY utility input statement, 

Put continuation character in column 72, 
and continue creating COPY statement. 

COPY statement must continue in column 16. 
Change all < to ( in job stream. 

Change all > to ) in job stream. 

List job for user to check and run, 
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Program. Output | | E 


RAND COMPUTATION CENTER LINE 11 (028) 10/30/74 2:53:00 P.H, 
THE SYSTEM WILL RE DOWN FROM 18:00-18:15 HRS., QUICK RELOAD 
USER? h2550 | 
ACCOUNT? BARR 

KEYWORD? MHE 

COMMAND ? load copy go 

IFHMOVE COPY PROMPTER 

BIN=152 

DSNAME TO COPY = source.read 

ENTER FROM DEVICE tape9 

ENTER FROM VOLUME 2387 

ENTER FROM FILE # 26 

ENTER TO DEVICE 3330 

ENTER TO VOLUME user50 


1. //H2250RKX JOB (2091,5,152) ,COPY,CLASS= 

2, // EXEC PGM-IEHMOVE 

3. //SYSPSBINT DD SYSCUT=A 

D, ` //SYSUT1 DD UNIT=TEMP, VOL=SER=TEMP10,DISP=SHR 

5, //FROM DD UNIT=TAPEY, LABEL=(1,51L), DISP= (OLU,KEEP), 
6, ff VOL= (PRIVATE, RETAIN, SER=002387) 

7. //TO DD UNIT=3330, VOL=SER=US FR50, DIS P=OLD 

9, //SYSIN DD * 

10. COPY DSNAME-H,H2250,A2091,SCURCE,READ, 


11. . . T023330zUSER50,FROM-TAPE9-2(2387,26) , TODD-TO 
COMMAND ? run | | 
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The following table lists the characters available on Ann 
Arbor terminals and their corresponding hexadecimal codes, 
These hexadecimal codes are the reversed ASCII codes sent to 
Ann Arbor terminals. | | 


À 83 H 13 0 F3 V 6B 0 OD 
a 87 h 17 o F7 Y 6F 1 8D 
B 43 I 93 P OB Ww OEB 2 4D 
b 47 i 97 p OF w EF 3 CD 
C C3 J 53 Q 8B X 18 ü 2D 
c C7 j 57 q BF x 1” 5 AD 
D 23 K D3 R 4 B Y 9B 6 6D 
a 27 k D7 r uF y oF 7 ED 
E A3 L 33 S CB Ké 5B 8 1D 
e A7 1 37 S CF Z 5F 9 9D 
F 53 M B3 T 2R 
f 67 m B7 t 2F 
G F3 N 73 y AB 
q E7 n 77 u AF 
£ 65 Àmpersand € 3D less than 
* 55 Asterisk LF 51 Line feed 
a 03 At sign - B5 Minus sign 
DC1 83 Attn/Break SI FO Move cursor 

79 Backspace .( 15 Paren, left 
{ 3F Bar, Yertical ) 95 Paren, right 
{ DF Brace, left X AS Percent sign 
} BF Brace, right e T5 Period 
[ | DB Bracket, left * D5 Plus sign 
] BB Bracket, right # C5 Pound sign 
CR B1 Carriage return 7 FD Cuestion mark 
FS 38 Clear screen " Dë Quotation mark, double 

and tabs : ' ES Quotation mark, single 
FF 31 Clear screen ' 07 Quotation mark, single 
but not tabs | reversed 

S 5D Colon : DD Semicolon 
, 35 Comma GS B8 Set tab 
$ 25 Dollar sign 38 Slash, reverse 
ESC D9 Escape (used as not-sian) 
= BD Equal sign Pd F5 Slash, standard 
! 85 Exclamation mark HT 91 Tab, horizontal 
> 7D greater than VT DO Tab, vertical 
NUL 01 Idle character E FB Underscore 
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For 9600 baud lines: 


1. FF or FS must be followed by 2 VT's, 

Ze LF must be followed by 1 NUL. | 

3, Any transmission that writes a character in the rightmost 
column and causes the screen to roll, must follow that 
Character with 1 NUL. | 


Ànn Arbor Column and Row Codes 

The Ann Arbor cursor may be moved directly to a new position 
n the screen by sending the SI character (F0) followed by a 

one-character column code and a one-character row code, The 

column and row codes are listed below, 


Column Codes 


0 00 20 On 40 02 60 06 
1 80 21 — 84 41 82 61 86 
2 40 22 uu 81 42 62 46 
3 Cp 23 Cu 83 c2 63 C6 
4 — 20 24 24 un 22 64 26 
5 A0 25 An 45 — A2 65 A6 
6 60 26 en 46 — 62 66 66 
7 EO 27 Eù 47 E2 67 E6 
8 10 28 14 ag 12 68 16 
9 90 29 94 49 a go 96 

10 08 30 oc 50 OA 70 OE 

11 88 31 8c 51 8A 71 BE 

12 88 32 uc 52 UA 72 4E 

13 C8 33 cc 53 CA 73 CE 

14 28 34 2C 54 — 2A 74 2E 

15 A8 35 AC 55 AR 75 AF 

16 68 36 6C 56 6A 76 ep 

17 E8 37 EC 57 EA 771 RE 

18 18 38 J 1C 58 1A 78 41E 

19 98 39 9c 59 92 79 9Ẹ 


ROW “Codes 


0 

1 82 11 D2 21 86 31 D6 
2 42 12 32 22 46 32 36 
3 C2 E B2 23 C6 33 B6 
ü 22 mw — 72 24 26 34 76 
5 A2 15 F2 25 A6 35 F6 
6 62 16 0A 26 66 36 OE 
7 E2 17 8A 27 E6 37 8E 
8 12 18 UA 28 16 38 DR 
9 92 19 CA 29 96 39 CE 
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INTRODUCTION TO BCE | 


WCFX is an extension of the WYLBUR Command Facility (WCF) 
that assists users in developing WCF programs. The WCFX 
language provides the WCF programmer with many of the 
features of high-level languages such as freeform input, 
alphanumeric statement labels, and block structuring 
statements, while retaining a simplicity that makes learning 
and using the language easy. 


The WCFX processor accepts a sequence of statements written 
in WCFX and/or WCF (the entire WCF language is a proper 
subset of WCFX) and translates it into an equivalent WCF 
program, The resulting program is then processed by WYLBUR 
as a standard WYLBUR command file. Corrections to a program 
may be made at either the WCFX "source" level or the WCF 
"object" level. 
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RUNNING WCFX PROGRAMS | | 


The WCFX processor runs as a batch job and produces a WCF 
. program as a final result, The JCL for using WCFX is: 


// JOB statement 
dé EXEC WCFX foptions] 
//SYSIYIN nD * 


(WCFX program) 
SC | 


where [ options] may include any cf the following: 
,GOFILE=dsname 


The specified file will contain the resulting WCF program 
on completion; if this option is omitted, no WCF program is 
produced, 


e UNIT=anit 


Defines the unit type (e.q., USER, 2314, 3330) on which the 
resulting WCF program will reside; if this option is 
omitted, 2314 is assumed. 


,VYOL=volume serial 


Defines the volume serial of the volume on which the 
resulting WCF program will reside; if this option is 
omitted, USEROS8 is assumed. 


,REGCznK (Default is 120K.) 
,TIMEC=seconds (Default is 999.) 
,PARMC=string 


Only one parameter, STMT, is currently significant to the 
WCFX processor, STMT initiates the printing of WCF 
generated line numbers on the WCFX listing. These line 
numbers are particularly useful for debugging WCFX 
programs, STMT may appear anywhere within the parameter 
string; all other characters in the string are ignored. If 
this option is omitted, WCF generated line numbers will not 
appear on the WCFX listing. 


WCFX Return Codes 


ED GE BOE AONO RED SUUS TIPS. NEEPO CURE LOPS WOE CHIT WE ED AED “CAS? viram. 


1000 No errors were detected 


1001-1998 1-198 errors detected 
1999 A | WCFX limitation was encountered that caused an 


early termination of processing. 
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WCFX PROGRAM FORMAT 
NCFX programs are freeform in the sense that they may begin 
and end anywhere within a line, and may continue across 
succeeding lines with blanks and comments imbedded freely. 
The processor scans only columns 1 through 72 of input lines; 
all sequences of blanks outside quoted character strings are 
reduced to a single blank and all comments are deleted from 
the text as part of the input phase processing, All WCFX 
Statements are terminated by a semicolon (a null statement 
consisting of only a semicolon is allowed), | 


Character strings are enclosed in quotation marks ('THIS IS A 
CHARACTER  STRINS!) and may contain any sequence of 
characters, A quotation mark within a character string must 
be specified as two adjacent quotation marks  (*'DON''T!). ` 
Comments are enclosed in exclamation points  (!THIS IS A 
COMMENT!) and may contain any sequence of characters. An. 
exclamation point within a comment must be specified as two 
adjacent exclamation points  (!WHAT!!?!). Comments within 
character strings are treated as part of the character 
string, and vice-versa. | 


The WCFX processor inserts the WCF LET verb in front of all 
lines containing an assignment operator (=). This can be 
prevented (and any non-assigment use of = can be indicated) 
by coding the operator as two adjacent assignment operators 
==) that will be translated to a single operator in the 
resulting WCF program. | 


All WCF lines generated by the WCFX processor must be less 
than 124 characters in length. An error message (LINE 
TRUNCATED) appears in the WCF final program listing following 
any line that is longer than 123 characters. | 


Certain WCF constructs may be improperly translated by the 
WCFX processor because they have the appearance of WCFX 
statements, There is no general rule for avoiding these 
Situations but the following example may provide some help in 
working around them, | 

MOVE 5/10 TO END; 


The "END;" would be processed as a WCFX END statement, This 
can be prevented by either of the followina: 


MOVE 5/10 TO END,; 
OR 


.TEMP-Z'END'!; 
MOVE 5/10 TO %.TEMP; 
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322 1_ ELEMENTS OF THE LANGUAGE à) 
LABELS 
{ General Form | 


labeli: statement; 
label1: label2: .....1labeln: statement; 


Labels are any arbitrary sequence of up to 30 characters 
(except a quotation mark or an exclamation point) followed by 
a colon, The label begins with the first non-blank character 
and includes all characters preceedinq the colon.  Blanks are 
allowed in a label but their use is discouraged since they 
can produce some unexpected results, Such results can also 
occur when labels and variables have identical names, or even 
when variables have initial portions of their names identical 
to a label name. | 


xamples 


LABEL:; 
HERE: THERE: AND EVERYWHERE:; 
SUBRTN: ,X-1; 


X: Y: DO .I=1 TO 10; 
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ARRAYS : | 

! General Form ie | 
"Tod MN Na: 
i »«variable[nn] (maximum 6 character name) I 
' .variablefnn1,nn2] | (maximum 4 character nare) | 
| »variablefnn1,nn2,nn3] (maximum 2 character name) | 
i v 1 


x 


The WYLBUR Command Facility does not support subscripted 
variables; however, the appearance of subscripted variables 
is provided by dynamically mapping them into unique WCF 
variable names. This is done by evaluating the subscripts 
and appending them as part of the variable name itself (see 
examples below). The subscripts can be arbitrary expressions 
that result in a numerical value in the range 0-99 inclusive. 


Caution should be exercised when using subscripted variables 
Since they result in very long (and slow) WCF expressions 
that can easily exceed the 123 character line length limit 
imposed on resulting WCF programs, Also, subscripted 
variables cannot be used inside parenthesized expressions 
because of the restrictions imposed on the use of the WCF % 
construct. 

senerated WCF Code 

.variablefnn] is replaced by 


e variable* (STRZ (nn,2)) 


.variablefnn1,nn2] is replaced by 


variable% (STRZ (nn1,2) | 41 STRZ (nn2,2)) 


.variable[nn1,nn2,nn3] is replaced by 


variable% {STRZ (nn1,2) | {STRZ(nn2, 2) | 1 STRZ (nn3,2)) 
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becomes .X* (STRZ (3,2)) 
which maps into .X03 


» Y[ 2,8] 
becomes .Y*(5TRZ(2,2) | ISTRZ (4,2)) 
which maps into .Y0204 


.2[5,8,50] 
becomes . 2X (STRZ (5, 2) LISTR7 (8,2) 1 ISTRZ (50, 2)) 
which maps into .2050850 


e ARRAY[. I] 
becomes „ARRAYS (STRZ (. L2) 


 R-1550/10 


which maps into .ARRAY10, for example, if .I equals 10 
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CALL label: 


| I 
! I 
| ! 
| label: age ) l 
I » | { 
i e ! | ! 
| I 
I i 
! l 


RETURN; 


Subroutine calls are implemented by using a stack to maintain 
the sequence of return points. Subroutines may be recursive 
and the maximum depth of nS mg is limited only by available 
storage. | 


There is no formal means of defining a subroutine in WCFX,.- 
The label on a CALL statement may be any valid WCFX statement 
label, Control passes from the CALL statement to the point 
defined by the specified label and returns to the statement 
following the CALL statement upon execution of a RETURN 
statement, | 


Generated WCF Code 


CALL label; 


.3312,93141 line n1 

.822* (STRZ (. à31,2)) =n2#20 line n2 

GOTO label |. line n3 
RETURN; 

.8832,832XST872(.821,2)) : line n1 

 .881-2,2381-1 | line n2 


GOTO *(.3883) line n3 
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DECLARE „variable AUTOMATIC; 


DECLARE (.variable1 <,.,variable2,...> ) AUTOMATIC; 


All WCF variables are global and static; however, the 
appearance of a form of non-global storage is provided by 
dynamically mapping those variables declared AUTOMATIC into 
unique WCF variable names, These variables appear to the 
programmer as a stack: each time a CALL is executed a "new" 
set of variables is provided, and each time a RETURN is 
executed the previous set of variables is recovered. No 
assumptions should be made about the initial values of 
AUTOMATIC variables and they cannot be used inside 
parenthesized expressions hecause of the restrictions imposed 
on the use of the WCF % construct. | 


Fach occurrence of »variable is replaced by 
J .8nnnn$ (strinaz (.88140,2)) 


where nnnn is a unique number for each AUTOMATIC variable. 


Ne 


Example. 1 
DECLARE,.X AUTOMATIC; 

.X72'FIRST X'; 

CALL SUBRTN; | 

TYPE .X; s. (types "FIRST X!) 
PAUSE; | 


SUBRTN: 
, Y! SECOND X'; 
RETURN; 
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| General Form | 


IF expression THEN statement; 


IF expression THEN DO: 
statement_list 
END; 


if then part 
ELSE statement; 


if then, part 
ELSE DO; 

Statement list 
END; 
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The IF statement allows for the conditional execution of 
either a single statement or a group of statements based on 
the result of evaluating a specified expression, By 
including the optional ELSE portion of the statement the test 
can be used to select which of two statements (or groups of 
Statements) is to be executed, 


The present version of the WCFX processor does not permit the 
subject statement of either the THEN or ELSE constructs to be 
another IF statement or a DO statement, Nested IF statements 
can be written by usina the THEN DO or ELSE DO forms of the 
IF, These restrictions will be relaxed in the future, 


;enerated WCF Code 


IF expression THEN statement; 


IF expression line n1 
ELSE GOTO n4 line n2 


statement line n3 
! line nú 


Page 64 | The Rand Computation Center: R-1550/10 
WYLBUR Command Facilities 


IF expression THEN DO; | 
| statement list | 
END; 
IF expression line n1 
ELSE GOTO n3 line n2 
statement list | | 
: line n3 
if then part 


ELSE statement; 


WC? code for if then part 


GOTO n3 line n1 
Statement line n2 
line n3 
if then, part 
ELSE DO; 
Statement list 
END; 
WCF code for if then part 
GOTO n2 line n1 
statement list 
line n2 
Example. 1 


IP .A EQ .B THEN .A=.A-1; 


Example. 2 


IF ,PALSE THEN DO; 
TYPE 'PALSE!; 
» FALSE-1; 
END; | 


F X LT 2*.Y THEN PAUSE; 
LSE DO; | 

"c X+, Ys 

GOTO THERE; 
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| General Form a | | I 


UNLESS expression THEN statement; 


UNLESS expression THEN DO; 
statement list 
END; | 


ELSE statement; 


I 
j 
I 
] 
I 
I 
| 
unless then part EE | I 
| "4 
I 
unless then part i 
ELSE DO; | 1 
Statement list l 

END; | l 
I 


The UNLESS construct is the converse of the IF construct (it 
is equivalent to IF NOT). UNLESS statements are exactly like 
IF statements in syntactic form and are subject to the same 
restrictions, 


3enerated WCF Code 


UNLESS expression THEN statement; 


IF expression | line n1 

= THEN GOTO në line n2 
statement | line n3 

| line n4 


UNLESS expression THEN DO; 


statement list 
END; 
^ IF expression line n1 
THEN GOTO n3 line n2 
statement list 


line n3 
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unless, then part NN 
ELSE statement; 


WCF code for unless then part 
GOTO n3 | line n1 
statement 2 line n2 


unless then part 

ELSE DO; 
Statement list 

END; : 


WCF code for unless then part , 

GOTO n2 line n1 

statement list 
| line n2 


Jun sein es cing £s OG WEA dO 


dle AE TEDL: AS 4e offe Qn auft 


UNLESS ,.FALSE THEN DO; 
TYPE 'TRUE'!; 
END; | - 


UNLESS 2*.X LT .Y THEN PAUSE; 
ELSE GOTO SOME MORE; 
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.|1 General Form I 


oiriúint, 
iad 


DO WHILE expression; 
statement list 
END; 


DO UNTIL expression; 
statement list . 
END; 


DO .variable=expression! TO expression2; 
statement list 7 


END; 


DO .variable=expressionl TO expression2 BY expression3 
statement list 


KE 


END; 


The DO WHILE construct indicates that the associated 
statement list is to be executed repetitively as long as the 
specified expression is true. The DO UNTIL construct is the 
converse of the DO WHILE and indicates that the associated 
statement list is to be executed repetitively as long as the 
specified expression is false. The test of the expression is 
made at the beginning of each repetition of the loop for 
WHILE statements and and at the end of each repetition of the 
loop for UNTIL statements (UNTIL loops are always executed at 
least once). 


The iterative forms of the DO statement indicate that the 
associated statement list is to be executed repetitively with 
the control variable set initially to the value of 
expression!1, then to expressionl*expression3, then to 
expression1*t2*expression3, ,.., until its value is greater 
than (or less than) the value of expression2. If expression3 
is omitted an implied value of 1 is used. The direction in 
which the value of the control variable is changed and the 
termination condition for the loop are determined from the 
sign of expression3. | 


There are no restrictions on branching into or out of any of 
the DO statements and all variables associated with a DO 
Statement may be changed freely. 
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3enerated WCF Code | 3 


DO WHILE expression; 
statement_list 
END; 


IF expression | in M line n1 
ELSE GOTO nu | | line n2 
statement list | | | | 
GOTO ni ` line n3 
| |. line ob 


DO UNTIL expression; 
statement list 


END; 

GOTO nl | | |. line n1 
IF expression | line n2 
 . THEN GOTO né | , line n3 
"PE | line n5 

statement list | 
GOTO n2 line n5 
line n6 


DO ,variable-expressionl TO expresssion2; 
Statement list 


END; 

atianves expression] |. line n1 
GOTO nu | | 3 line n2 
.variable-,variable*(1) | line n3 
Ir (1s te Vartan ke (express. ors) ST 0 line n4 
THEN GOTO n7 line n5 
Statement list | 

GOTO n3 i line n6 


line n7 


DO . variable=expression1 TO EE BY expressioni; 
statement list 


END; 

.Variable-expression]1 line nt 
GOTO nu : line n2 
,Variable=, variable+(expression3) line n3 
IF (expression3) tt, variable- (expression?) ) GT 0 line ni 
THEN GOTO ni line n5 
statement list | 

GOTO n3 | line n6 


line n7 
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TYPE X: 
sX7.X*15. 


DO UNTIL (.Y LT 10) OR (.A NE .B); 
 .«A72*. Y, 
«Y2,Y-1; 


DO ,1-2100 TO -10 BY -3; 
TYPE „I: 
END; 


69 
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label: do statement 


i { 
| : 
I l 
| l 
| . | 
| NEXT label; | 
I i | 
i | | i 
I I 
I I 
| | 
I | 
| I 
I I 


EXIT label; 


NEXT and EXIT statements can appear only as part of the 
statement list of labeled DO statements, Furthermore, the 
label specified on these statements must be the first label 
on the DO statement if more than one label is used. 


The NEXT statement generates a branch to the closing END 
statement of the labeled DO statement to which it refers and 
effectively causes the next iteration of the loop to occur, 
The EXIT statement generates a branch to the statement 
immediately following the closing END statement of the 
labeled DO statement to which it refers and effectively 
causes the loop to be exited. NEXT and EXIT statements are 
particularly useful for defining the flow of control in the 
nested DO statements. | 


NEXT label; 


GOTO n2 line n1 


GOTO for do statement (see above) line n2 
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. EXIT label; 


OTO for do statement (see above) 


LOOP: DO WHILE TRUE: 


* 


NEXT LOOP; 


. 


EXIT LOOP; 


a 


END; 


eg SECH ates ER mae uuu mem VERD 


HERE: THERE: DO UNTIL .PALSE; 
ANOTHER: DO .I-1 TO 10; 


EXIT HERE; 


END; 
END; 
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line n1 


line n2 
line n3 
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Since the WCFX processor is a macro-processor and not a 
. compiler, very little syntax checking is done, Usually, 
syntax errors result in patterns that do not match the WCFK 
macros properly and which are, therefore, passed on as part 
of the WCF program, These errors are easily detected by. 
Scanning the resulting WCF program for untranslated 
constructs. “ | 


There are three program related error messages produced by 
the WCFX processor: | | 


INVALID BLOCK STRUCTURE - ILLEGAL "END/ELSE" STATEMENT 


This error usually results from an END or ELSE statement 
that has no corresponding initial part (DO statement or IF 
for END, IF or UNLESS for ELSE). This message may he 
generated multiple times for a single END or ELSE 
Statement, 


INVALID BLOCK STRUCTURE - INSUFFICIENT "END" STATEMENTS 


This error is the converse of the previous one. An 
end-of-file occurred before the logical end of the program 
leaving at least one unclosed block. 


LINE TRUNCATED 


This message follows those WCF generated lines that have 
been truncated because their length was greater than 123 
characters, 


There are two error messages related to built-in limitations 
of the WCFX processor itself. 


STACK OVERFLOW 


This error results from exceeding the processor's maximum 
IF/UNLESS and/or DO statement nesting capability. The 
maximum nesting level allowed is printed on the first page 
of every WCFX listing (currently 50). 


MACRO/LABEL OVERFLOW 


. This error results when the number of labels required by a 
program exceeds the number that can be contained in the 
processor tables. This number can be automatically 
increased by increasing the region allocated to the 
processor, The maximum number of labels allowed is 
printed on the first page of every WCFX listing (PASS 2 
MACROS ALLOWED), and the number of labels defined by a 
program is printed on the last page of every WCFX listing 
{PASS 2 MACROX DEFINED). 
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 WCPX PROGRAM EXAMPLE -- WCPX Source 


The following example is intended as a vehicle for displaying 
some of the features of the WCPX language. It is not meant 
to be a qood example of how to compute factorials or of how 
WCF SNORAS be used, | 


DECLARE .X AUTOMATIC; | 2 E Se: 
AGAIN: 

REQUEST NUM .N PROMPT'FACTORIAL FOR N= '; 

IF (.N LT 0) OR (TRU(.N) NEQ .N) THEN TYPE ‘DUMMY; 


ELSE DO; : 
IF .N EQ O THEN PAUSE 'GOCODBYE'; 
ELSE DO; 
e ZZN; 
CALL FACT; | | | 
TYPE STR(.N) [|| ' FACTORIAL = * || STR(.Y); 
ERD: | | 
END; 


GOTO AGAIN; 


FACT: | 
| IF Z EQ ' 1 THEN DO; 
. 1715 
RETURN; 
END; 
ELSE DO; 
oX=.Z3 
EHTLT Z-1; 
CALL FACT; 
l «17, X*, Y. 
RETURN; 
END; 
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Program Output -- generated WCF Program 
0010,000 REQUEST NUM .N PROMPT'FACTORIAL FOR N= ' 
0020.000 IF .N LT 0 OR TRU(.N) NEQ .N | 
0030,000 ELSE 3070 0060 

0040.000 TYPE 'DUMMY' 

0050.000 30T0 0150 

0060.009 IF .N EQ 0 

0070.000 ELSE GOTO 0100 

0080,000 PAUSE 'S3OODBYE' 

0090,000 GoTO 0150 

0100,000 LET .Z-.N 

0110.000 LET .3381-,2331*1 

0120.000 LET .38382*(STRZ(.3231,2))- 0120420 
0130,000 coTO 0160 | | 
0140.000 TYPE STR(.N) || * FACTORIAL = * || STR(.Y) 
0150,000 coTO 0010 E | RSS 
0160,000 IF ,7 EO 1 

0170.000 ELSE GOTO 0230 

0180.000 LET .Y=1 

0190.000 LET FER ,0892* (STRZ (. 321, 2)) 

0200,000 LET .321-,23231-1 

0210,000 GOTO %(.@@3) 

0220.000 coTO 0320 

0230.000 LET .80010% (STRZ(.281*0,2))7.7 

0240,000 LET ,Z=.2-1 

0250,000 LET .2@1=.001+1 

0260.000 LET .@02%(STRZ(.901,2)) = 0260420 
9270.000 GoTo 0160 

0280,000 LET .Y-.30010*(ST8R7(.281*0,2) ) *. Y 
0290,000 LET ,.2333-.2882*(STRZ(.2981,2)) 

0310.000 GOTO *(.3233) 


